|
|
 |
|
|
|
|
88: ' clsAppTransactions.addTrans2Text m_rdoError.Number
& m_rdoError.Source & m_rdoError.Description
89: ' 'rdoEngine.rdoErrors(iErrCnt).Number &
'rdoEngine.rdoErrors
(iErrCnt).Source & 'rdoEngine.rdoErrors(iErrCnt).Description
90: ' Next
91: ' clsAppTransactions.addTrans2Text Connection to database was
not successful
92: ' clsAppTransactions.showLog
93: ' openConnection = gFAILURE
94: MsgBox CStr(Err.Number) & : & Err.Description
95: Set mvarpDBConnection = Nothing
96: End Sub
97: 'In the WorkgroupProxy
98: 'Initialize the class instance
99: Private Sub Class_Initialize()
100: #If DebugMode Then
101: 'get the next available class ID, and print out
102: 'that the class was created successfully
103: mlClassDebugID = GetNextClassDebugID()
104: Debug.Print ' & TypeName(Me) & ' instance &
mlClassDebugID & created
105: #End If
106: '*****************
107: If Not theSession.isLoggedIn Then
108: 'Normally, process in error subsystem
109: MsgBox User not logged in
110: Set theSomeWorkgroupProxy = Nothing
111: Else
112: miLastProcessCompleted = -1
113: 'startProcess
114: 'determineRoles
115: End If
116: End Sub
117: 'Start the initial process
118: Public Sub startProcess()
119: 'Set CurrProcess = New Process
120: If miLastProcessCompleted = -1 Then
121: Set CurrProcess = AllProcesses.Add(eProcess.DoProcess1)
122: End If
123: 'startProcess
124: determineRoles
125: End Sub
126: 'Determine which roles the user can perform
127: Private Sub determineRoles()
128: Dim arrRoles
129: 'Involves accessing the role IDs of the roles
130: 'the user can perform in this workgroup
131: 'lookup roles by user id
132: 'theUser.UserID
|
|
|
|
|
|